home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Mansion9Install#1 Folder / Mansion BBS ƒ / Mansion Data / Scripts / BBS Script next >
Encoding:
Text File  |  1992-09-06  |  2.8 KB  |  147 lines  |  [TEXT/QED1]
  1. ;
  2. ;    BBS List Script
  3. ;    For Mansion 8 BBS
  4. ;
  5. ;    By Mark Toland
  6. ;    Zoo System Mac BBS
  7. ;    Fidonet 290/2
  8. ;    515-279-3073  9600 v.32 v.42bis
  9. ;
  10. ; 
  11. ;  •••• READ THE COMMENTS AT THE END OF THIS SCRIPT ABOUT FILE CREATION
  12. ;
  13. MOVE @LIMIT,&250
  14. LOADUSERINFO
  15. LIMIT &250
  16. MOVE 2,&80
  17. SPACES &80
  18. ; &80 HOLDS 2 SPACES
  19. /ONE
  20. PRINT
  21. PRINT
  22. PRINT
  23. PRINT ::::::::::::::::::::::::::::::::::::::::::::
  24. PRINT :            Users BBS Listing             :
  25. PRINT :  A. Add a BBS number to the BBS listing. :
  26. PRINT :  V. View the current BBS listing.        :
  27. PRINT :  Q. Quit back to the BBS.                :
  28. PRINT ::::::::::::::::::::::::::::::::::::::::::::
  29. PRINT
  30. PRINT
  31. DRAW Enter your choice:
  32. INPUT 1,&0
  33. IF &0,=,A
  34.     FORWARD /ADD
  35. ENDIF
  36. IF &0,=,V
  37.     DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:BBSList
  38.     REVERSE /ONE
  39. ENDIF
  40. IF &0,=,Q
  41.     END
  42. ENDIF
  43. IF &0,<>,Q
  44.     REVERSE /ONE
  45. ENDIF
  46. ;
  47. /ADD
  48. PRINT
  49. PRINT Make sure you have Viewed the current BBS listing to make sure
  50. PRINT the BBS you wish to add is not already listed.
  51. PRINT
  52. DRAW Do you wish to add a BBS system to the BBS list now (Y/N)?
  53. INPUT 1,&0
  54. IF &0,=,N
  55.     END
  56. ENDIF
  57. IF &0,<>,Y
  58.     REVERSE /ONE
  59. ENDIF
  60. PRINT
  61. PRINT
  62. PRINT Enter the phone number of the BBS. You have 12 characters.
  63. DRAW Enter with the format of XXX-XXX-XXXX ->
  64. INPUT 12,&1
  65. PRINT
  66. DRAW Enter the MAX baud rate for the BBS ->
  67. INPUT 8,&2
  68. PRINT
  69. PRINT Enter the name of the BBS.
  70. DRAW (24 char. max) ->
  71. INPUT 24,&3
  72. ;
  73. PRINT
  74. PRINT What computer does the BBS run on?
  75. DRAW (10 chars max) ->
  76. INPUT 10,&4
  77. PRINT
  78. PRINT Enter any features about the BBS System
  79. PRINT (You have 60 chars. Max)
  80. INPUT 60,&5
  81. ;
  82. PRINT
  83. PRINT You have entered the following...
  84. DRAW BBS Phone number ->
  85. PRINT &1
  86. DRAW Baud Rate ->
  87. PRINT &2
  88. DRAW Board Name ->
  89. PRINT &3
  90. DRAW Computer Type ->
  91. PRINT &4
  92. DRAW Comments->
  93. PRINT &5
  94. DRAW Board added by ->
  95. PRINT &280
  96. ;
  97. /TWO
  98. PRINT
  99. DRAW Do you wish to record the above info to the BBS list (Y/N)?
  100. INPUT 1,&9
  101. IF &9,=,N
  102.     REVERSE /ONE
  103. ENDIF
  104. IF &9,<>,Y
  105.     REVERSE /TWO
  106. ENDIF
  107. ;
  108. PRINT
  109. PRINT Processing your data...
  110. ; OK lets try to format things a little bit
  111. MOVE Phone # ,&21
  112. CONCAT &21,&1
  113. MOVE Max Baud Rate -> ,&22
  114. CONCAT &22,&2
  115. MOVE   Computer Type -> ,&24
  116. CONCAT &24,&4
  117. MOVE   ,&30
  118. CONCAT &22,&80
  119. CONCAT &22,&30
  120. CONCAT &22,&24
  121. MOVE Comments:,&25
  122. CONCAT &25,&5
  123. MOVE Entered by -> ,&26
  124. CONCAT &26,&280
  125. MOVE @DATE,&31
  126. ;
  127. PRINT Saving...
  128. ; OK lets write the results to the BBSList file
  129. ;                                  ^^^^^^^
  130. ; •••• Edit the following 2 lines as to the location of your Business card file
  131. OUTPUT HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:BBSList
  132. EXISTS HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:BBSList,&50
  133. IF &50,=,0
  134.     WRITE &51
  135. ENDIF
  136. APPEND &3
  137. APPEND &21
  138. APPEND &22
  139. APPEND &25
  140. APPEND &26
  141. APPEND &31
  142. APPEND ------------------------------------------------
  143. ;
  144. CLOSE
  145. PRINT Thanks for adding to the BBS Listing!
  146. REVERSE /ONE
  147. END